Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue42/opengl/GLDemo.exe/0/RCDATA/TGLCONTROLLER/TGLCONTROLLER.txt

Text File | 1998-11-26 | 21.6 KB | 753 lines

object GLController: TGLController
  Left = 119
  Top = 127
  BorderIcons = [biSystemMenu]
  BorderStyle = bsToolWindow
  Caption = 'OpenGL Window Control'
  ClientHeight = 384
  ClientWidth = 221
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton6: TSpeedButton
    Left = 134
    Top = 52
    Width = 23
    Height = 22
  end
  object PC1: TPageControl
    Left = 0
    Top = 0
    Width = 221
    Height = 384
    ActivePage = TS1
    Align = alClient
    DockSite = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    HotTrack = True
    MultiLine = True
    ParentFont = False
    TabOrder = 0
    object TS1: TTabSheet
      Caption = 'Viewing'
      object SpeedButton2: TSpeedButton
        Left = 32
        Top = 1
        Width = 25
        Height = 25
        Hint = 'Zoom In'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33033333333333333F7F3333333333333000333333333333F777333333333333
          000333333333333F777333333333333000333333333333F77733333333333300
          033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
          33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
          3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
          33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
          333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
          333333773FF77333333333370007333333333333777333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton2Click
      end
      object SpeedButton3: TSpeedButton
        Left = 57
        Top = 1
        Width = 25
        Height = 25
        Hint = 'Zoom Out'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33033333333333333F7F3333333333333000333333333333F777333333333333
          000333333333333F777333333333333000333333333333F77733333333333300
          033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
          333333773337777333333078F8F87033333337F3333337F33333778F8F8F8773
          333337333333373F333307F8F8F8F70333337F33FFFFF37F3333078999998703
          33337F377777337F333307F8F8F8F703333373F3333333733333778F8F8F8773
          333337F3333337F333333078F8F870333333373FF333F7333333330777770333
          333333773FF77333333333370007333333333333777333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton3Click
      end
      object SpeedButton7: TSpeedButton
        Left = 82
        Top = 1
        Width = 25
        Height = 25
        Glyph.Data = {
          66010000424D6601000000000000760000002800000015000000140000000100
          040000000000F000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F07FFFFFFFFF
          FFFFFFFFF0000F07FFFFFFFFFFFFFFFFF00070F07FFFFFFFFFFFFFFFF000F70F
          07FF000000FFFFFFF000FF70000078787800FFFFF000FFF70078888877870FFF
          F000FFFF078800F8888870FFF000FFFF08880078888880FFF000FFF07888007F
          8888870FF000FFF0788700F77F87880FF000FFF078870000000F880FF000FFF0
          788800000008880FF000FFF078870077700F880FF000FFF078F800F77008870F
          F000FFFF07FF0000000880FFF000FFFF077F0000000870FFF000FFFFF0777888
          88870FFFF000FFFFFF0077777700FFFFF000FFFFFFFF000000FFFFFFF000FFFF
          FFFFFFFFFFFFFFFFF000}
        OnClick = SpeedButton7Click
      end
      object SpeedButton5: TSpeedButton
        Left = 146
        Top = 2
        Width = 25
        Height = 25
        Hint = 'copy to clipboard'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
          FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
          FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
          007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
          7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
          99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
          99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
          99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
          93337FFFF7737777733300000033333333337777773333333333}
        NumGlyphs = 2
        OnClick = SpeedButton5Click
      end
      object DeleteMeasure: TSpeedButton
        Left = 174
        Top = 2
        Width = 25
        Height = 25
        Hint = 'Clear measure list'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
          3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
          33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
          33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
          333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
          03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
          33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
          0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
          3333333337FFF7F3333333333000003333333333377777333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = DeleteMeasureClick
      end
      object SpeedButton4: TSpeedButton
        Left = 7
        Top = 1
        Width = 25
        Height = 25
        Hint = 'Reset the Viewer'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
          3333333777333777FF33339993707399933333773337F3777FF3399933000339
          9933377333777F3377F3399333707333993337733337333337FF993333333333
          399377F33333F333377F993333303333399377F33337FF333373993333707333
          333377F333777F333333993333101333333377F333777F3FFFFF993333000399
          999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
          99933773FF777F3F777F339993707399999333773F373F77777F333999999999
          3393333777333777337333333999993333333333377777333333}
        NumGlyphs = 2
        OnClick = ResetBtnClick
      end
      object SpeedButton8: TSpeedButton
        Left = 112
        Top = 2
        Width = 25
        Height = 25
        Hint = 'Redraw Scene'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555775777777
          57705557757777775FF7555555555555000755555555555F777F555555555550
          87075555555555F7577F5555555555088805555555555F755F75555555555033
          805555555555F755F75555555555033B05555555555F755F75555555555033B0
          5555555555F755F75555555555033B05555555555F755F75555555555033B055
          55555555F755F75555555555033B05555555555F755F75555555555033B05555
          555555F75FF75555555555030B05555555555F7F7F75555555555000B0555555
          5555F777F7555555555501900555555555557777755555555555099055555555
          5555777755555555555550055555555555555775555555555555}
        NumGlyphs = 2
        OnClick = SpeedButton8Click
      end
      object View: TRadioGroup
        Left = 8
        Top = 197
        Width = 93
        Height = 121
        Caption = 'View Position'
        ItemIndex = 0
        Items.Strings = (
          'Down (Plan)'
          'Up'
          'East'
          'West'
          'North'
          'South'
          'Custom')
        TabOrder = 9
        OnClick = ViewClick
      end
      object MoveState: TRadioGroup
        Left = 116
        Top = 90
        Width = 93
        Height = 241
        Caption = 'Move Mode'
        ItemIndex = 0
        Items.Strings = (
          'None'
          'Move To Pt'
          'Zoom'
          'Pan'
          'Fly'
          'Rotate '
          'Slide'
          'Look'
          'Walk'
          'Twist'
          'Measure'
          'ScreenZ'
          'Look At Pt'
          'View Points')
        TabOrder = 8
        OnClick = MoveStateClick
      end
      object RM1: TRadioGroup
        Left = 115
        Top = 37
        Width = 93
        Height = 48
        Caption = 'Render Mode'
        ItemIndex = 0
        Items.Strings = (
          'Full'
          'Quick')
        TabOrder = 7
        OnClick = RM1Click
      end
      object Perspective1: TCheckBox
        Left = 11
        Top = 32
        Width = 85
        Height = 17
        Caption = 'Perspective'
        TabOrder = 0
        OnClick = Perspective1Click
      end
      object MaxFR: TCheckBox
        Left = 11
        Top = 48
        Width = 97
        Height = 17
        Caption = 'Max Frame Rate'
        TabOrder = 1
        OnClick = MaxFRClick
      end
      object HUD: TCheckBox
        Left = 11
        Top = 64
        Width = 96
        Height = 17
        Caption = 'Head Up Data'
        TabOrder = 2
        OnClick = HUDClick
      end
      object Grid: TCheckBox
        Left = 11
        Top = 80
        Width = 49
        Height = 17
        Caption = 'Grid'
        TabOrder = 3
        OnClick = GridClick
      end
      object Gridtext: TCheckBox
        Left = 11
        Top = 96
        Width = 73
        Height = 17
        Caption = 'Grid Text'
        TabOrder = 4
        OnClick = GridtextClick
      end
      object GrabFocus: TCheckBox
        Left = 11
        Top = 114
        Width = 97
        Height = 17
        Hint = 'Focus if mouse moves over'
        Caption = 'Grab Focus'
        TabOrder = 5
        OnClick = GrabFocusClick
      end
      object GD: TCheckBox
        Left = 11
        Top = 132
        Width = 80
        Height = 17
        Hint = 'Support GDI'
        Caption = 'Use GDI '
        TabOrder = 6
        OnClick = GDClick
      end
      object Cursor3D: TCheckBox
        Left = 12
        Top = 150
        Width = 97
        Height = 17
        Caption = '3D Cursor'
        TabOrder = 10
        OnClick = Cursor3DClick
      end
      object SDL: TCheckBox
        Left = 12
        Top = 168
        Width = 97
        Height = 17
        Caption = 'Std Display List'
        TabOrder = 11
        OnClick = SDLClick
      end
    end
    object TS2: TTabSheet
      Caption = 'Tools'
      object SpeedButton1: TSpeedButton
        Left = 140
        Top = 162
        Width = 61
        Height = 25
        Hint = 'Clear select list'
        Caption = 'Clear'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000010000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
          3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
          33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
          33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
          333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
          03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
          33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
          0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
          3333333337FFF7F3333333333000003333333333377777333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton1Click
      end
      object Warning1: TLabel
        Left = 94
        Top = 8
        Width = 117
        Height = 14
        Caption = 'Set Move Mode to None.'
        Font.Charset = ANSI_CHARSET
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object Select: TRadioGroup
        Left = 128
        Top = 28
        Width = 83
        Height = 126
        Caption = 'Tools State'
        ItemIndex = 0
        Items.Strings = (
          'None'
          'Select'
          'Point'
          'Line'
          'PolyLine'
          'Polygon'
          'Rectangle')
        TabOrder = 0
        OnClick = SelectClick
      end
    end
    object TS3: TTabSheet
      Caption = 'Lighting'
      object LightingOn: TCheckBox
        Left = 16
        Top = 2
        Width = 81
        Height = 17
        Caption = 'Lighting On'
        TabOrder = 0
      end
      object WBG: TCheckBox
        Left = 103
        Top = 18
        Width = 97
        Height = 17
        Caption = 'White Bckgnd'
        TabOrder = 1
        OnClick = WBGClick
      end
    end
    object TS4: TTabSheet
      Caption = 'Texture'
    end
    object Scene: TTabSheet
      Caption = 'Scene'
      object TestScene: TRadioGroup
        Left = 18
        Top = 12
        Width = 173
        Height = 127
        Caption = 'Test Scenes'
        ItemIndex = 0
        Items.Strings = (
          'None'
          'Basic Scene'
          'Colour Triangle'
          'Black and White'
          'Random Terrain'
          'Selected objects')
        TabOrder = 0
        OnClick = TestSceneClick
      end
    end
    object aboutsheet: TTabSheet
      Caption = 'About'
      object TStaticText
        Left = 16
        Top = 64
        Width = 4
        Height = 4
        TabOrder = 0
      end
      object GroupBox1: TGroupBox
        Left = 3
        Top = 120
        Width = 209
        Height = 216
        Caption = 'GL Session Details'
        TabOrder = 1
        object Image1: TImage
          Left = 70
          Top = 176
          Width = 73
          Height = 33
          Picture.Data = {<image000.bmp>}
        end
        object HA: TCheckBox
          Left = 6
          Top = 102
          Width = 145
          Height = 17
          Hint = 'Generic Accelerated'
          Caption = 'Generic Accelerated'
          Enabled = False
          TabOrder = 0
        end
        object CPixelFormat: TStaticText
          Left = 16
          Top = 16
          Width = 150
          Height = 17
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Window Pixel Format = '
          TabOrder = 1
        end
        object DB: TCheckBox
          Left = 6
          Top = 69
          Width = 85
          Height = 17
          Hint = 'Support Double Buffer'
          Caption = 'Double Buffer'
          Enabled = False
          TabOrder = 2
        end
        object DW: TCheckBox
          Left = 6
          Top = 35
          Width = 105
          Height = 17
          Hint = 'Draw To Window'
          Caption = 'Window'
          Enabled = False
          TabOrder = 3
        end
        object SC: TCheckBox
          Left = 6
          Top = 85
          Width = 80
          Height = 17
          Hint = 'Support Swap copying'
          Caption = 'Swap Copy'
          Enabled = False
          TabOrder = 4
        end
        object CBits: TStaticText
          Left = 8
          Top = 135
          Width = 89
          Height = 17
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Colour  Bits ='
          TabOrder = 5
        end
        object DBits: TStaticText
          Left = 8
          Top = 151
          Width = 89
          Height = 17
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Depth Bits ='
          TabOrder = 6
        end
        object SBits: TStaticText
          Left = 104
          Top = 135
          Width = 97
          Height = 17
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Stencil  Bits ='
          TabOrder = 7
        end
        object ABits: TStaticText
          Left = 104
          Top = 151
          Width = 97
          Height = 17
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Accum  Bits ='
          TabOrder = 8
        end
        object BM: TCheckBox
          Left = 101
          Top = 44
          Width = 70
          Height = 17
          Hint = 'Draw To Bitmap'
          Caption = 'Bitmap'
          Enabled = False
          TabOrder = 9
        end
        object SE: TCheckBox
          Left = 101
          Top = 78
          Width = 100
          Height = 17
          Hint = 'SupportExchange copying'
          Caption = 'Swap Exchange'
          Enabled = False
          TabOrder = 10
        end
        object GL: TCheckBox
          Left = 6
          Top = 52
          Width = 65
          Height = 17
          Hint = 'Support OpenGL'
          Caption = 'OpenGL'
          Enabled = False
          TabOrder = 11
        end
        object Stereo: TCheckBox
          Left = 100
          Top = 62
          Width = 91
          Height = 17
          Hint = 'Support Stereo buffer'
          Caption = 'Stereo'
          Enabled = False
          TabOrder = 12
        end
      end
      object StaticText3: TStaticText
        Left = 0
        Top = 5
        Width = 44
        Height = 17
        Caption = 'Vendor :'
        TabOrder = 2
      end
      object StaticText4: TStaticText
        Left = 0
        Top = 25
        Width = 54
        Height = 17
        Caption = 'Renderer :'
        TabOrder = 3
      end
      object StaticText5: TStaticText
        Left = 0
        Top = 45
        Width = 45
        Height = 17
        Caption = 'Version :'
        TabOrder = 4
      end
      object Vendor: TStaticText
        Left = 56
        Top = 5
        Width = 150
        Height = 18
        AutoSize = False
        BorderStyle = sbsSunken
        Font.Charset = ANSI_CHARSET
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
      end
      object Renderer: TStaticText
        Left = 56
        Top = 25
        Width = 150
        Height = 18
        AutoSize = False
        BorderStyle = sbsSunken
        Font.Charset = ANSI_CHARSET
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
      end
      object Version: TStaticText
        Left = 56
        Top = 45
        Width = 116
        Height = 18
        AutoSize = False
        BorderStyle = sbsSunken
        Font.Charset = ANSI_CHARSET
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
      end
      object Extension: TMemo
        Left = 16
        Top = 65
        Width = 185
        Height = 51
        ScrollBars = ssVertical
        TabOrder = 8
      end
    end
    object Error: TTabSheet
      Caption = 'Error'
      ImageIndex = 6
      object errorgrid: TStringGrid
        Left = 5
        Top = 35
        Width = 201
        Height = 236
        ColCount = 1
        DefaultColWidth = 180
        DefaultRowHeight = 18
        FixedCols = 0
        RowCount = 1
        FixedRows = 0
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object StaticText2: TStaticText
        Left = 7
        Top = 7
        Width = 103
        Height = 19
        Caption = 'OpenGL Error List'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object GetError: TBitBtn
        Left = 15
        Top = 280
        Width = 75
        Height = 25
        Caption = 'Get Error'
        TabOrder = 2
        OnClick = GetErrorClick
      end
      object ClearError: TBitBtn
        Left = 125
        Top = 280
        Width = 75
        Height = 25
        Caption = 'Clear Error'
        TabOrder = 3
        OnClick = ClearErrorClick
      end
    end
    object TabSheet1: TTabSheet
      Caption = 'Animate'
      ImageIndex = 7
      object Animateon: TCheckBox
        Left = 14
        Top = 9
        Width = 97
        Height = 17
        Caption = 'Animation On'
        TabOrder = 0
        OnClick = AnimateonClick
      end
      object AnimateP: TPanel
        Left = 5
        Top = 35
        Width = 206
        Height = 291
        BevelOuter = bvLowered
        TabOrder = 1
        Visible = False
      end
    end
  end
end